object frmFTP: TfrmFTP Left = 218 Top = 114 BorderStyle = bsNone Caption = 'frmFTP' ClientHeight = 479 ClientWidth = 747 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Image1: TImage Left = 0 Top = 0 Width = 747 Height = 479 Align = alClient Picture.Data = {} Stretch = True end object Label1: TLabel Left = 8 Top = 4 Width = 317 Height = 29 Caption = 'Exportar para site web (ftp)' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -24 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label2: TLabel Left = 10 Top = 70 Width = 25 Height = 13 Caption = 'Host:' Transparent = True end object Label3: TLabel Left = 10 Top = 106 Width = 22 Height = 13 Caption = 'Port:' Transparent = True end object Label4: TLabel Left = 10 Top = 142 Width = 25 Height = 13 Caption = 'User:' Transparent = True end object Label5: TLabel Left = 10 Top = 178 Width = 49 Height = 13 Caption = 'Password:' Transparent = True end object Label16: TLabel Left = 10 Top = 232 Width = 63 Height = 13 Caption = 'Proxy Server:' Transparent = True end object Label17: TLabel Left = 10 Top = 264 Width = 51 Height = 13 Caption = 'Proxy Port:' Transparent = True end object Label6: TLabel Left = 25 Top = 216 Width = 60 Height = 13 Caption = 'Utilizar Proxy' Transparent = True end object Label7: TLabel Left = 25 Top = 303 Width = 67 Height = 13 Caption = 'Modo Passivo' Transparent = True end object SpeedButton1: TSpeedButton Left = 712 Top = 5 Width = 81 Height = 22 Caption = 'Ligar' Visible = False OnClick = SpeedButton1Click end object Shape1: TShape Left = 203 Top = 78 Width = 1 Height = 392 end object Label8: TLabel Left = 40 Top = 30 Width = 673 Height = 41 Alignment = taCenter AutoSize = False Caption = 'Depois de introduzidos os dados para liga��o por ftp ao site web' + ' para onde se pretende descarregar as listagens devem selecciona' + 'r-se os condom�nios e as listagens a exportar. As informa��es s�' + 'o memorizadas sendo apenas necess�rio configurar na primeira uti' + 'liza��o ou reconfigurar se as condi��es de acesso ftp mudaram.' Transparent = True WordWrap = True end object Label10: TLabel Left = 451 Top = 88 Width = 19 Height = 13 Caption = 'Ano' Transparent = True end object RxLabel2: TRxLabel Left = 616 Top = 88 Width = 10 Height = 17 Alignment = taRightJustify Caption = '0' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object SpeedButton3: TSpeedButton Left = 636 Top = 86 Width = 100 Height = 20 Caption = 'Seleccionar Todos' Flat = True OnClick = SpeedButton3Click end object Label61: TLabel Left = 225 Top = 88 Width = 70 Height = 13 Caption = 'Ordenados por' Transparent = True end object Label9: TLabel Left = 360 Top = 410 Width = 101 Height = 13 Caption = 'Receitas e Despesas' Transparent = True end object Label11: TLabel Left = 360 Top = 390 Width = 93 Height = 13 Caption = 'Saldos Cond�minos' Transparent = True end object Label12: TLabel Left = 240 Top = 390 Width = 52 Height = 13 Caption = 'Or�amento' Transparent = True end object Label13: TLabel Left = 240 Top = 410 Width = 89 Height = 13 Caption = 'Quotas Calculadas' Transparent = True end object Label14: TLabel Left = 240 Top = 430 Width = 67 Height = 13 Caption = 'Quotas Pagas' Transparent = True end object Label15: TLabel Left = 360 Top = 430 Width = 81 Height = 13 Caption = 'Contas Correntes' Transparent = True end object Panel1: TPanel Left = 216 Top = 113 Width = 518 Height = 263 BevelOuter = bvNone Color = clWindow TabOrder = 23 object Label18: TLabel Left = 20 Top = 9 Width = 470 Height = 42 Alignment = taCenter AutoSize = False Caption = 'Seleccione a pasta para onde deseja exportar as listagens.'#13#10'Ao f' + 'azer duplo-clique numa pasta ela � aberta mostrando as pastas qu' + 'e que se encontram dentro. Quando encontrar a pasta para onde de' + 'seja exportar basta fazer ��Exportar para aqui��.' WordWrap = True end object ListBox1: TListBox Left = 10 Top = 56 Width = 490 Height = 153 ItemHeight = 13 TabOrder = 1 OnDblClick = ListBox1DblClick end object Button1: TButton Left = 200 Top = 224 Width = 129 Height = 25 Caption = 'Exportar para aqui' TabOrder = 0 OnClick = Button1Click end end object Panel2: TPanel Left = 216 Top = 113 Width = 518 Height = 263 BevelOuter = bvNone Color = clWindow TabOrder = 24 object ProgressBar1: TProgressBar Left = 32 Top = 88 Width = 457 Height = 65 Min = 0 Max = 100 TabOrder = 0 end end object RxDBGrid1: TRxDBGrid Left = 215 Top = 112 Width = 520 Height = 265 Ctl3D = False DataSource = DataSource1 FixedColor = 14143935 Options = [dgTitles, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect] ParentCtl3D = False TabOrder = 10 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] MultiSelect = True Columns = < item Expanded = False FieldName = 'ID' Title.Alignment = taCenter Title.Caption = 'C�d.' Width = 35 Visible = True end item Expanded = False FieldName = 'Condom�nio' Title.Alignment = taCenter Width = 310 Visible = True end item Expanded = False FieldName = 'Contr.' Title.Alignment = taCenter Width = 89 Visible = True end item Expanded = False FieldName = 'Ano' Title.Alignment = taCenter Width = 60 Visible = True end> end object CheckBox2: TCheckBox Left = 10 Top = 301 Width = 16 Height = 17 TabOrder = 0 end object DBEdit1: TDBEdit Left = 10 Top = 86 Width = 180 Height = 19 Ctl3D = False DataField = 'Host' DataSource = Dados.dsAdministracao ParentCtl3D = False TabOrder = 1 end object DBEdit2: TDBEdit Left = 10 Top = 122 Width = 50 Height = 19 Ctl3D = False DataField = 'Port' DataSource = Dados.dsAdministracao ParentCtl3D = False TabOrder = 2 end object DBEdit3: TDBEdit Left = 10 Top = 158 Width = 121 Height = 19 Ctl3D = False DataField = 'User' DataSource = Dados.dsAdministracao ParentCtl3D = False TabOrder = 3 end object DBEdit4: TDBEdit Left = 10 Top = 194 Width = 180 Height = 19 Ctl3D = False DataField = 'Pass' DataSource = Dados.dsAdministracao ParentCtl3D = False PasswordChar = '*' TabOrder = 4 end object DBCheckBox1: TDBCheckBox Left = 10 Top = 214 Width = 16 Height = 17 Caption = 'DBCheckBox1' DataField = 'UseProxy' DataSource = Dados.dsAdministracao TabOrder = 5 ValueChecked = 'True' ValueUnchecked = 'False' end object DBEdit5: TDBEdit Left = 10 Top = 245 Width = 180 Height = 19 Ctl3D = False DataField = 'Proxy' DataSource = Dados.dsAdministracao ParentCtl3D = False TabOrder = 6 end object DBEdit6: TDBEdit Left = 10 Top = 277 Width = 50 Height = 19 Ctl3D = False DataField = 'ProxyPort' DataSource = Dados.dsAdministracao ParentCtl3D = False TabOrder = 7 end object BitBtn2: TBitBtn Left = 640 Top = 395 Width = 80 Height = 25 Caption = 'Exportar' TabOrder = 8 OnClick = BitBtn2Click Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333388F3333333333000033334224333333333333 338338F3333333330000333422224333333333333833338F3333333300003342 222224333333333383333338F3333333000034222A22224333333338F338F333 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224 33333338F83338F338F33333000033A33333A222433333338333338F338F3333 0000333333333A222433333333333338F338F33300003333333333A222433333 333333338F338F33000033333333333A222433333333333338F338F300003333 33333333A222433333333333338F338F00003333333333333A22433333333333 3338F38F000033333333333333A223333333333333338F830000333333333333 333A333333333333333338330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 640 Top = 430 Width = 80 Height = 25 Caption = 'Cancelar' TabOrder = 9 OnClick = BitBtn3Click Kind = bkCancel end object Edit2: TEdit Left = 481 Top = 86 Width = 50 Height = 21 Hint = 'Texto a procurar, dependendo da ordena��o' TabStop = False Color = clInfoBk Ctl3D = True ParentCtl3D = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 11 Text = '2002' OnChange = Edit2Change end object UpDown1: TUpDown Left = 531 Top = 86 Width = 16 Height = 21 Associate = Edit2 Min = 1995 Max = 2010 Position = 2002 TabOrder = 12 Thousands = False Wrap = False end object CheckBox1: TCheckBox Left = 552 Top = 88 Width = 49 Height = 17 Caption = 'Todos' TabOrder = 13 OnClick = CheckBox1Click end object ComboBox4: TComboBox Left = 305 Top = 86 Width = 110 Height = 21 Hint = 'Muda a ordena��o da lista' Style = csDropDownList Color = clInfoBk ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 14 OnChange = ComboBox4Change Items.Strings = ( 'C�digo' 'Condom�nio' 'Contribuinte' 'Ano') end object CheckBox3: TCheckBox Left = 344 Top = 410 Width = 16 Height = 17 Caption = 'Livro.db' Checked = True State = cbChecked TabOrder = 19 end object CheckBox4: TCheckBox Left = 344 Top = 390 Width = 16 Height = 17 Caption = 'Condominos.db' Checked = True State = cbChecked TabOrder = 18 end object CheckBox5: TCheckBox Left = 224 Top = 390 Width = 16 Height = 17 Caption = 'Orcamentos.db' Checked = True State = cbChecked TabOrder = 15 end object CheckBox6: TCheckBox Left = 224 Top = 410 Width = 16 Height = 17 Caption = 'Condominos.db' Checked = True State = cbChecked TabOrder = 16 end object CheckBox7: TCheckBox Left = 224 Top = 430 Width = 16 Height = 17 Caption = 'Condominos.db' Checked = True State = cbChecked TabOrder = 17 end object CheckBox8: TCheckBox Left = 344 Top = 430 Width = 16 Height = 17 Caption = 'contas correntes' Checked = True State = cbChecked TabOrder = 20 end object Memo1: TMemo Left = 8 Top = 320 Width = 185 Height = 121 Ctl3D = False Lines.Strings = ( 'Inicio') ParentCtl3D = False TabOrder = 21 end object CheckBox9: TCheckBox Left = 6 Top = 444 Width = 190 Height = 17 Hint = 'Ao marcar esta op��o, depois de '#13#10'exportada a informa��o o utili' + 'zador '#13#10'vai ver a lista de todos os condom�nios'#13#10'no site. Na sit' + 'ua��o inversa, s� ver�'#13#10'uma janela de login.' Caption = 'Mostrar lista de condom�nios no site' ParentShowHint = False ShowHint = True TabOrder = 22 end object CheckBox10: TCheckBox Left = 6 Top = 461 Width = 131 Height = 17 Hint = 'Ao marcar esta op��o, h� a possibilidade '#13#10'de actualizar apenas ' + 'a informa��o dos '#13#10'condom�nios desejados sem exportar todos '#13#10'de' + ' novo. NOTA: S� v�lido para condom�nios'#13#10'anteriorment exportados' + '.' Caption = 'S� actualizar listagens' ParentShowHint = False ShowHint = True TabOrder = 25 end object NMFTP1: TNMFTP Port = 21 ReportLevel = 0 OnDisconnect = NMFTP1Disconnect OnConnect = NMFTP1Connect OnInvalidHost = NMFTP1InvalidHost OnHostResolved = NMFTP1HostResolved OnStatus = NMFTP1Status OnConnectionFailed = NMFTP1ConnectionFailed OnPacketRecvd = NMFTP1PacketRecvd OnPacketSent = NMFTP1PacketSent OnError = NMFTP1Error OnTransactionStart = NMFTP1TransactionStart OnTransactionStop = NMFTP1TransactionStop OnFailure = NMFTP1Failure OnSuccess = NMFTP1Success OnListItem = NMFTP1ListItem OnUnSupportedFunction = NMFTP1UnSupportedFunction Vendor = 2411 ParseList = True ProxyPort = 0 Passive = True FirewallType = FTUser FWAuthenticate = False Left = 280 Top = 8 end object DataSource1: TDataSource DataSet = Table1 Left = 344 Top = 8 end object Table1: TTable Left = 312 Top = 8 end object FormStorage1: TFormStorage UseRegistry = True StoredProps.Strings = ( 'CheckBox2.Checked' 'CheckBox3.Checked' 'CheckBox4.Checked' 'CheckBox5.Checked' 'CheckBox6.Checked' 'CheckBox7.Checked' 'CheckBox8.Checked') StoredValues = <> Left = 376 Top = 8 end object frHTMExport1: TfrHTMExport ShowDialog = False ScaleX = 1 ScaleY = 1 PageBreaks = False Left = 552 Top = 8 end object frReport1: TfrReport InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit] Left = 488 Top = 8 ReportForm = {18000000} end object frBDEComponents1: TfrBDEComponents Left = 520 Top = 8 end object frDBDataSet1: TfrDBDataSet DataSet = Table2 Left = 625 Top = 9 end object Table2: TTable Left = 656 Top = 8 end object frDBDataSet2: TfrDBDataSet DataSet = Table1 Left = 592 Top = 8 end object Table3: TTable Left = 408 Top = 8 end object tSecInterna: TTable Left = 656 Top = 40 end object frDBDataSet3: TfrDBDataSet DataSet = tSecInterna Left = 624 Top = 40 end end